home *** CD-ROM | disk | FTP | other *** search
/ The Utilities Experience / The Utilities Experience - Volume 1.iso / software / demos / r-z / sbase4pro / ideas / wplet.sbp < prev   
Text File  |  1995-07-10  |  2KB  |  97 lines
  1. SBP
  2.  ÿ½  WPLET Serienbrief WordPerfect
  3.  
  4.  ÿ½ select phase
  5.  ÿ×c1$(25,1)
  6.  ÿ†ÿt
  7.  
  8. a: f$ÿ"":ÿÂ"Open file","",11,a%,f$:ÿ½ ***** Datei selektieren *****
  9.  ÿ¡a%ÿ0ÿpÿ’
  10.  
  11.  ÿ‡:f1$ÿf$
  12.  ÿ´ÿ™f1$
  13.  
  14.  
  15.  ÿ½ **************** Pfad vom Dateinamen entfernen *********************
  16.  
  17. a0: f%ÿÿ?(1,f$,"\"):ÿ¡f%ÿpf$ÿÿ-(f$,ÿ/(f$)ÿf%):ÿwa0
  18. b$ÿ"":c$ÿ"":b1$ÿ"? ":lct%ÿ0:blk%ÿ1
  19.  
  20.  ÿ½ *********************************************** Felder In Blöcke *
  21.  ÿ›i%ÿ1ÿq25:c1$(i%,0)ÿ"":c1$(i%,1)ÿ"":ÿ±i%
  22.  
  23. a1: b$ÿ"Block "ÿÿ(blk%,"99")ÿ" = "
  24.  
  25. b: 
  26.  a$ÿ"":
  27.  ÿÂb$,"select another or <CANCEL> to end this block",5,a%,a$
  28.  ÿ¡a%ÿ0ÿpÿwc
  29.  b$ÿb$ÿa$ÿ","
  30.  ÿ½ b$ kürzen, damit nicht zu lang für Dialogfeld
  31.  ÿ¡ÿ/(b$)ÿ60ÿpb1$ÿb$:b$ÿ"Block "ÿÿ(blk%,"99")ÿ" = ..."ÿÿ-(b1$,35)
  32. lct%ÿlct%ÿ1
  33.  c1$(lct%,0)ÿa$ÿ"."ÿf$
  34.  ÿwb
  35.  
  36. c: c1$(lct%,1)ÿÿ(18)
  37.  c$ÿc$ÿÿ+(b$,ÿ/(b$)ÿ1)ÿ"/"
  38.  ÿÂ"Another block","",21,a%:ÿ¡a%ÿpb$ÿ"":blk%ÿblk%ÿ1:b1$ÿ"? ":ÿwa1
  39.  c$ÿc$ÿ"#"
  40.  lct%ÿlct%ÿ1
  41.  c1$(lct%,1)ÿÿ(5)
  42.  ÿ{c$
  43.  
  44.  ÿ½ Datei bearbeiten
  45.  
  46. d1: ÿ½ Reihenfolge definieren
  47.  
  48.  ÿÂ"Current index is "ÿÿ£ÿ"."ÿf$,"Select Index to define order <CANCEL> for "ÿÿ£,7,a%,i$:ÿ½ ******** define order *******
  49.  
  50.  ÿ¡a%ÿpz$ÿ"INDEX "ÿi$ÿ"."ÿf$:ÿ–z$
  51.  
  52.  
  53.  
  54. d2: ÿÉÿÐÿ~:ÿ½ **************************************** Filter? *****
  55.  
  56. ÿÉÿ`
  57. ÿ¡ÿB(f$)ÿpÿÂ"No records found matching this filter","",1,a%:ÿ¡a%ÿpÿwd2 ÿ^ÿwgetout
  58. ct%ÿ0
  59.  
  60. d3: ÿ½ ** Serienbriefdatei holen und prüfen überschreiben/anhängen ***
  61.  
  62.  ÿÂ"Enter Merge File Name","<CANCEL> to end",17,a%,mf$:
  63. ÿ¡a%ÿ0ÿpÿwgetout
  64. ÿ¡ÿO(ÿJ(mf$))ÿpÿ´mf$ÿ›ÿ¶:ÿwd4
  65. ÿÂ"Mergefile "ÿmf$ÿ" exists","<OK> to Overwrite or Append, <CANCEL> to re-choose",1,a%
  66. ÿ¡a%ÿ0ÿpÿwd3
  67. ÿÂmf$,"<OK> to Overwrite,  < CANCEL > TO APPEND ",1,a%
  68. ÿ¡a%ÿpÿ´mf$ÿ›ÿ¶ÿ^ÿ´mf$ÿ›ÿT
  69.  
  70. d4: ÿ½ **************** Einrichten "? Feldname.file;" ****************************
  71.  
  72. ÿØÿOÿB(f$)
  73. ÿ›i%ÿ1ÿqlct%
  74.  
  75. ÿ¡i%ÿlct%ÿp
  76. zz$ÿ"zz% = LEN(TRIM$("ÿc1$(i%,0)ÿ"))":ÿ–zz$
  77. ÿ¡zz%ÿpzz$ÿ"? "ÿc1$(i%,0)ÿ";":ÿ–zz$
  78. ÿ¡zz%ÿ c1$(i%,1)ÿÿ(18)ÿpzz%ÿzz%ÿ1:ÿ{ÿ(18);
  79. ÿ’ÿ¡
  80. ÿ½ Falls letzter Block CTRL/R
  81. ÿ¡c1$(i%,1)ÿÿ(5)ÿpzz%ÿzz%ÿ1:ÿ{ÿ(5);
  82. ÿ½ ***** Falls letzter Block CTRL/E ***
  83. ÿ¡zz%ÿpÿ{ÿ(10);:ÿ½ ************************* Auf alle Fälle <NEWLINE> *******
  84. ÿ±i%
  85. ct%ÿct%ÿ1
  86. ÿÉÿ±
  87. ÿÙ
  88. ÿ†ÿ¶
  89.  ÿ{:ÿ{&5.0ct%," records exported to "ÿmf$
  90.  
  91. getout: ÿÉÿÐ
  92.  ÿ½ LIST mf$
  93.  ÿ’
  94.  
  95.  
  96.  
  97.